unit untCadPesquisas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untCadPadrao, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSharp, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
  dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue, dxSkinscxPCPainter, cxStyles, cxCustomData, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, dxSkinsdxBarPainter, ADODB,
  cxIntlBase, cxintl, cxPropertiesStore, ACBrBase, ACBrEnterTab,
  cxGridCustomPopupMenu, cxGridPopupMenu, dxBarDBNav, ImgList, ActnList,
  dxBar, cxClasses, ExtCtrls, cxGridLevel, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
  cxGridDBBandedTableView, cxGrid, cxPC, cxContainer, Menus, StdCtrls,
  cxButtons, cxLabel, cxTextEdit, cxDBEdit, ShellApi;

type
  TfrmCadPesquisa = class(TfrmCadPadrao)
    dtListCODIGO: TAutoIncField;
    dtListDESCRICAO: TWideStringField;
    dtListRET: TWideStringField;
    dtListENDERECO: TWideStringField;
    dtEditCODIGO: TAutoIncField;
    dtEditDESCRICAO: TWideStringField;
    dtEditRET: TWideStringField;
    dtEditENDERECO: TWideStringField;
    GridDBBandedTableView2CODIGO: TcxGridDBBandedColumn;
    GridDBBandedTableView2DESCRICAO: TcxGridDBBandedColumn;
    GridDBBandedTableView2RET: TcxGridDBBandedColumn;
    GridDBBandedTableView2ENDERECO: TcxGridDBBandedColumn;
    cxDBTextEdit1: TcxDBTextEdit;
    Label1: TcxLabel;
    cxDBTextEdit2: TcxDBTextEdit;
    Label2: TcxLabel;
    b2: TBevel;
    LblTitulo: TcxLabel;
    cxDBTextEdit3: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxButton3: TcxButton;
    procedure cxButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCadPesquisa: TfrmCadPesquisa;

implementation

{$R *.dfm}

procedure TfrmCadPesquisa.cxButton3Click(Sender: TObject);
begin
  inherited;
  if dtEditENDERECO.text <> '' then
    ShellExecute(Handle, 'open',Pchar(dtEditENDERECO.Text), '', '', 1);
end;

end.
